home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #6 / Amiga Plus CD - 1996 - No. 06.iso / pd / texte / texfontinst / examples / zrmhax.mtx < prev    next >
Text File  |  1996-07-30  |  4KB  |  165 lines
  1. %%% ====================================================================
  2. %%%  @TeX-metrics-file{
  3. %%%     author          = "Alan Jeffrey",
  4. %%%     version         = "1.315",
  5. %%%     date            = "30 January 1994",
  6. %%%     time            = "19:12:37 GMT",
  7. %%%     filename        = "zrmhax.mtx",
  8. %%%     address         = "School of Cognitive and Computing Sciences
  9. %%%                        University of Sussex
  10. %%%                        Brighton BN1 9QH
  11. %%%                        UK",
  12. %%%     telephone       = "+44 273 606755 x 3238",
  13. %%%     FAX             = "+44 273 678188",
  14. %%%     checksum        = "???",
  15. %%%     email           = "alanje@cogs.sussex.ac.uk",
  16. %%%     codetable       = "ISO/ASCII",
  17. %%%     keywords        = "AFM, virtual fonts, fonts, PostScript, TeX",
  18. %%%     supported       = "yes",
  19. %%%     abstract        = "These are the adjustments for Adobe Times 
  20. %%%                        Italic and Symbol to make a halfway-decent 
  21. %%%                        math italic.",
  22. %%%     docstring       = "The checksum field above contains a CRC-16
  23. %%%                        checksum as the first value, followed by the
  24. %%%                        equivalent of the standard UNIX wc (word
  25. %%%                        count) utility output of lines, words, and
  26. %%%                        characters.  This is produced by Robert
  27. %%%                        Solovay's checksum utility.",
  28. %%%     package         = "fontinst",
  29. %%%     dependencies    = "none",
  30. %%%  }
  31. %%% ====================================================================
  32.  
  33. \relax
  34.  
  35. \metrics
  36.  
  37. \needsfontinstversion{1.315}
  38.  
  39. % \shiftglyph takes four parameters:
  40. %
  41. % #1 the name of the glyph
  42. % #2 the amount of extra space at the left
  43. % #3 the amount of extra space at the right
  44. % #4 the amount of extra space for subscripts
  45.  
  46. \setcommand\shiftglyph#1#2#3#4{
  47.    \resetglyph{#1}
  48.       \movert{#2}
  49.       \glyph{#1}{1000}
  50.       \movert{#4}
  51.       \resetitalic{\add{\italic{#1}}{\sub{#3}{#4}}}
  52.    \endresetglyph
  53. }
  54.  
  55. % \skewkern sets a skewchar kern, assuming that tie is the skewchar.
  56.  
  57. \setcommand\skewkern#1#2{\setkern{#1}{tie}{#2}}
  58.  
  59. \shiftglyph{C}{-50}{0}{-25}
  60. \shiftglyph{E}{0}{50}{0}
  61. \shiftglyph{F}{0}{50}{-100}
  62. \shiftglyph{H}{0}{25}{-25}
  63. \shiftglyph{I}{0}{0}{-25}
  64. \shiftglyph{K}{0}{0}{-25}
  65. \shiftglyph{J}{0}{0}{-25}
  66. \shiftglyph{N}{0}{0}{-25}
  67. \shiftglyph{P}{0}{0}{-100}
  68. \shiftglyph{T}{0}{50}{-75}
  69. \shiftglyph{U}{-50}{50}{-25}
  70. \shiftglyph{V}{-50}{50}{-50}
  71. \shiftglyph{W}{-50}{50}{-50}
  72. \shiftglyph{X}{0}{50}{-25}
  73. \shiftglyph{Y}{-50}{50}{-50}
  74. \shiftglyph{b}{0}{-25}{0}
  75. \shiftglyph{d}{0}{25}{0}
  76. \shiftglyph{f}{150}{0}{25}
  77. \shiftglyph{g}{0}{-50}{0}
  78. \shiftglyph{j}{150}{25}{0}
  79. \shiftglyph{l}{0}{50}{0}
  80. \shiftglyph{o}{0}{-50}{0}
  81. \shiftglyph{p}{75}{-25}{0}
  82. \shiftglyph{t}{-25}{50}{0}
  83. \shiftglyph{Upsilon1}{0}{0}{-50}
  84. \shiftglyph{Upsilon1}{0}{0}{-100}
  85. \shiftglyph{weierstrass}{-100}{-200}{-150}
  86.  
  87. \skewkern{A}{75}
  88. \skewkern{B}{100}
  89. \skewkern{C}{100}
  90. \skewkern{D}{50}
  91. \skewkern{E}{75}
  92. \skewkern{F}{75}
  93. \skewkern{G}{100}
  94. \skewkern{H}{50}
  95. \skewkern{I}{100}
  96. \skewkern{J}{200}
  97. \skewkern{K}{75}
  98. \skewkern{M}{100}
  99. \skewkern{N}{25}
  100. \skewkern{O}{100}
  101. \skewkern{P}{100}
  102. \skewkern{Q}{100}
  103. \skewkern{R}{100}
  104. \skewkern{S}{100}
  105. \skewkern{T}{50}
  106. \skewkern{U}{50}
  107. \skewkern{X}{50}
  108. \skewkern{Z}{50}
  109. \skewkern{a}{75}
  110. \skewkern{c}{75}
  111. \skewkern{d}{200}
  112. \skewkern{e}{75}
  113. \skewkern{f}{150}
  114. \skewkern{g}{75}
  115. \skewkern{i}{75}
  116. \skewkern{j}{150}
  117. \skewkern{l}{100}
  118. \skewkern{m}{50}
  119. \skewkern{n}{50}
  120. \skewkern{o}{75}
  121. \skewkern{p}{100}
  122. \skewkern{q}{75}
  123. \skewkern{r}{50}
  124. \skewkern{s}{100}
  125. \skewkern{t}{50}
  126. \skewkern{u}{75}
  127. \skewkern{v}{75}
  128. \skewkern{w}{75}
  129. \skewkern{x}{75}
  130. \skewkern{y}{75}
  131. \skewkern{z}{50}
  132. \skewkern{dotlessi}{50}
  133. \skewkern{dotlessj}{50}
  134. \skewkern{upsilon}{25}
  135. \skewkern{iota}{-50}
  136. \skewkern{lambda}{-75}
  137. \skewkern{weierstrass}{175}
  138. \skewkern{lscript}{125}
  139.  
  140. \setglyph{dotlessj}
  141.    \moveup{\neg{\depth{j}}}
  142.    \glyphrule{\width{j}}{\add{\depth{j}}{\height{dotlessi}}}
  143.    \resetitalic{\italic{dotlessi}}
  144.    \moveup{\depth{j}}
  145.    \glyphwarning{missing glyph `dotlessj'}
  146. \endsetglyph
  147.  
  148. \unfakable{rho1}
  149.  
  150. \setglyph{pi1} 
  151.    \glyph{omega1}{1000} 
  152. \endsetglyph
  153.  
  154. \setglyph{epsilon1} 
  155.    \glyph{epsilon}{1000} 
  156. \endsetglyph
  157.  
  158. \resetglyph{vector} 
  159.    \movert{-100} 
  160.    \glyph{vector}{1000} 
  161.    \movert{100}
  162. \endresetglyph
  163.  
  164. \endmetrics
  165.